From b83dcd72726b1e544075eeb507b9b3a8eae680fb Mon Sep 17 00:00:00 2001 From: Kenichi Handa Date: Thu, 18 Jun 2009 01:15:32 +0000 Subject: [PATCH] ("Korean"): Fix `documentation' property of this language environment. --- lisp/language/korean.el | 19 ++++++++++++++----- 1 file changed, 14 insertions(+), 5 deletions(-) diff --git a/lisp/language/korean.el b/lisp/language/korean.el index 731ded4c707..e8e78bfc47b 100644 --- a/lisp/language/korean.el +++ b/lisp/language/korean.el @@ -43,7 +43,6 @@ (define-coding-system-alias 'euc-kr 'korean-iso-8bit) (define-coding-system-alias 'euc-korea 'korean-iso-8bit) -(define-coding-system-alias 'cp949 'korean-iso-8bit) (define-coding-system 'iso-2022-kr "ISO 2022 based 7-bit encoding for Korean KSC5601 (MIME:ISO-2022-KR)." @@ -58,6 +57,14 @@ (define-coding-system-alias 'korean-iso-7bit-lock 'iso-2022-kr) +(define-coding-system 'korean-cp949 + "CP949 (Microsoft Unified Hangul Code)" + :coding-type 'charset + :mnemonic ?K + :charset-list '(ascii cp949)) + +(define-coding-system-alias 'cp949 'korean-cp949) + (set-language-info-alist "Korean" '((setup-function . setup-korean-environment-internal) (exit-function . exit-korean-environment) @@ -70,10 +77,12 @@ (coding-priority korean-iso-8bit iso-2022-kr) (sample-text . "Hangul ($(CGQ1[(B) $(C>H3gGO<H3gGO=J4O1n(B") (documentation . "\ -The following key bindings are available while using Korean input methods: - Shift-SPC: toggle-korean-input-mthod - Control-F9: quail-hangul-switch-symbol-ksc - F9: quail-hangul-switch-hanja") +The following key bindings are available for controlling Korean input methods: + Shift-SPC, Hangul: toggle-korean-input-method + Control-F9: quail-hangul-switch-symbol-ksc + F9: quail-hangul-switch-hanja +and the following key bindings are available within Korean input methods: + F9, Hangul_Hanja: hangul-to-hanja-conversion") )) (provide 'korean) -- 2.30.2